home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / home20dm.zip / SETUP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-09-22  |  4KB  |  198 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.3O (Encryption type II) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     String   TSTRING001(120)
  22.     String   TSTRING002(120)
  23.     String   TSTRING003(120)
  24.     String   TSTRING004(120)
  25.     String   TSTRING005(120)
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     Cls
  33.     PrintLn "@X0BThis is the SETUP program for v2.0 of the Homework program.  This program"
  34.     PrintLn "should only be used once to configure the TEACHERS.CFG file for your school."
  35.     Newline
  36.     InputYN "Do you want to continue? (Y/n)_", STRING008, 10
  37.     If (STRING008 == NoChar()) Then
  38.         Cls
  39.         End
  40.     Else
  41.         Goto LABEL001
  42.     Endif
  43.     :LABEL001
  44.     If (Exist(PPEPath() + "TEACHERS.CFG")) Then
  45.         Newlines 2
  46.         PrintLn "@X0CThis program has detected that the TEACHERS.CFG file already exists on this"
  47.         PrintLn "computer.  If this is the first time you are running this setup program then"
  48.         PrintLn "answar YES to the following question.  If you have already used this program"
  49.         PrintLn "to configure your TEACHERS.CFG file, then please answar NO to the following"
  50.         PrintLn "question."
  51.         Newline
  52.         STRING008 = ""
  53.         InputYN "Do you want to continue the setup program? (N/y)_", STRING008, 14
  54.         If (STRING008 == YesChar()) Then
  55.             Goto LABEL002
  56.         Else
  57.             Cls
  58.             End
  59.         Endif
  60.     Else
  61.         :LABEL002
  62.         FCreate 1, PPEPath() + "TEACHERS.CFG", 2, 3
  63.         FClose 1
  64.         INTEGER001 = 0
  65.     Endif
  66.     INTEGER001 = 0
  67.     :LABEL003
  68.     Cls
  69.     PrintLn "@X0ANumber Of Teachers: @X0F", INTEGER001
  70.     Inc INTEGER001
  71.     Newline
  72.     InputText "Enter Teacher's Name: _", TSTRING001(INTEGER001), 14, 57
  73.     If (TSTRING001(INTEGER001) == "") Then
  74.         Newlines 2
  75.         PrintLn "@X0CAborted!"
  76.         Delay 20
  77.         Dec INTEGER001
  78.     Else
  79.         Newline
  80.         InputText "Enter Path To Teacher's File: _", TSTRING002(INTEGER001), 14, 49
  81.         Newline
  82.         InputText "Enter Teacher's Subject: _", TSTRING003(INTEGER001), 14, 54
  83.         Newline
  84.         InputText "Enter Path To Teacher's Intro File: _", TSTRING004(INTEGER001), 14, 43
  85.         Newline
  86.         InputText "Enter Path To Download File: _", TSTRING005(INTEGER001), 14, 50
  87.         Cls
  88.         PrintLn "@X0ATeacher's Name: @X0E", TSTRING001(INTEGER001)
  89.         PrintLn "@X0APath To Teacher's File: @X0E", TSTRING002(INTEGER001)
  90.         PrintLn "@X0ATeacher's Subject: @X0E", TSTRING003(INTEGER001)
  91.         PrintLn "@X0APath To Teacher's Intro File: @X0E", TSTRING004(INTEGER001)
  92.         PrintLn "@X0APath To Download File: @X0E", TSTRING005(INTEGER001)
  93.         Newline
  94.         InputYN "Is the above correct? (y/N)_", STRING006, 10
  95.         If (STRING006 == YesChar()) Then
  96.             Goto LABEL004
  97.         Else
  98.             Dec INTEGER001
  99.             Goto LABEL003
  100.         Endif
  101.     Endif
  102.     :LABEL004
  103.     Newline
  104.     InputYN "Another Teacher? (Y/n)_", STRING007, 10
  105.     If (STRING007 == NoChar()) Then
  106.         Goto LABEL005
  107.     Else
  108.         Goto LABEL003
  109.     Endif
  110.     :LABEL005
  111.     INTEGER001 = 1
  112.     While (TSTRING001(INTEGER001) <> "") Do
  113.         Inc INTEGER001
  114.         If (INTEGER001 == 121) Then
  115.             Dec INTEGER001
  116.             Break
  117.         Endif
  118.     EndWhile
  119.     INTEGER002 = INTEGER001 - 1
  120.     INTEGER001 = 1
  121.     FCloseAll
  122.     FOpen 1, PPEPath() + "TEACHERS.CFG", 1, 3
  123.     FPutLn 1, INTEGER002
  124.     Cls
  125.     PrintLn "@X0FUpdating the TEACHERS.CFG file..."
  126.     While (INTEGER001 < INTEGER002 + 1) Do
  127.         FPutLn 1, TSTRING001(INTEGER001)
  128.         FPutLn 1, TSTRING002(INTEGER001)
  129.         FPutLn 1, TSTRING003(INTEGER001)
  130.         FPutLn 1, TSTRING004(INTEGER001)
  131.         FPutLn 1, TSTRING005(INTEGER001)
  132.         Inc INTEGER001
  133.     EndWhile
  134.     FCloseAll
  135.     Newline
  136.     PrintLn "@X0ANow run the Homework v2.0 program and choose @X0FChange The Homework @X0Afrom the"
  137.     PrintLn "SysOp menu and then use the @X0FR @X0Acommand to reset all the teacher's files.  This"
  138.     PrintLn "will create the homework files you have just entered in this setup program."
  139.     Newline
  140.     Wait
  141.  
  142. ;------------------------------------------------------------------------------
  143. ;
  144. ; Usage report (before postprocessing)
  145. ;
  146. ; ■ Statements used :
  147. ;
  148. ;    2       End
  149. ;    6       Cls
  150. ;    1       Wait
  151. ;    24      Goto 
  152. ;    6       Let 
  153. ;    18      PrintLn 
  154. ;    9       If 
  155. ;    1       FCreate 
  156. ;    1       FOpen 
  157. ;    1       FClose 
  158. ;    6       FPutLn 
  159. ;    4       InputYN 
  160. ;    1       Delay 
  161. ;    3       Inc 
  162. ;    3       Dec 
  163. ;    11      Newline
  164. ;    2       Newlines 
  165. ;    5       InputText 
  166. ;    2       FCloseAll
  167. ;
  168. ;
  169. ; ■ Functions used :
  170. ;
  171. ;    4       +
  172. ;    1       -
  173. ;    6       ==
  174. ;    1       <>
  175. ;    1       <
  176. ;    9       !
  177. ;    2       NoChar()
  178. ;    2       YesChar()
  179. ;    3       PPEPath()
  180. ;    1       Exist()
  181. ;
  182. ;------------------------------------------------------------------------------
  183. ;
  184. ; Analysis flags : No flag
  185. ;
  186. ;------------------------------------------------------------------------------
  187. ;
  188. ; Postprocessing report
  189. ;
  190. ;    0       For/Next
  191. ;    2       While/EndWhile
  192. ;    7       If/Then or If/Then/Else
  193. ;    0       Select Case
  194. ;
  195. ;------------------------------------------------------------------------------
  196. ;                 AEGiS Corp - Break the routines, code against the machines!
  197. ;------------------------------------------------------------------------------
  198.